home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / graphics / qpeg11c.zip / CIRRUS.ASM < prev    next >
Assembly Source File  |  1993-10-14  |  608b  |  37 lines
  1. ;
  2. ; QPEG video driver
  3. ; for Cirrus Logic CL-GD 5422 chipsets
  4. ;
  5.  
  6.         .286
  7. Code    Segment Para 'Code'
  8.         Assume  cs:Code
  9.         Org 100h
  10.  
  11. Procs   dw      Bank,Init,Exit,0
  12.  
  13. Bank:   shl     al,4
  14.         push    ax
  15.         mov     dx,03ceh
  16.         mov     al,9
  17.         out     dx,al
  18.         inc     dx
  19.         pop     ax
  20.         out     dx,al
  21.         retf
  22.  
  23. Init:   mov     dx,03c4h
  24.         mov     al,6
  25.         out     dx,al
  26.         inc     dx
  27.         mov     al,12h
  28.         out     dx,al
  29.         retf
  30.  
  31. Exit:   retf
  32.  
  33. Code    Ends
  34.         End Procs
  35.  
  36. ; End of source.
  37.